/////////////////////////////////////////////////////////////////////
//
// OposRod.h
//
//   Remote Order Display header file for OPOS Applications.
//
// Modification history
// ------------------------------------------------------------------
// 1998-03-06 OPOS Release 1.3                                   BB
// 2000-09-24 OPOS Release 1.5                                   BKS
//   Added CharacterSet constant for UNICODE.
// 2004-10-26 Add "CharacterSet" ANSI constant (from 1.5).       CRM
// 2011-04-07                                                    EPO
//   Converted to Pascal by Eric Orilla
//
/////////////////////////////////////////////////////////////////////

unit oposrod;

interface

/////////////////////////////////////////////////////////////////////
// "CurrentUnitID" and "UnitsOnline" Properties
//   and "Units" Parameter Constants
/////////////////////////////////////////////////////////////////////

function ROD_UID(Value: Integer): Integer;

const

  ROD_UID_1          : Longint     = $00000001;
  ROD_UID_2          : Longint     = $00000002;
  ROD_UID_3          : Longint     = $00000004;
  ROD_UID_4          : Longint     = $00000008;
  ROD_UID_5          : Longint     = $00000010;
  ROD_UID_6          : Longint     = $00000020;
  ROD_UID_7          : Longint     = $00000040;
  ROD_UID_8          : Longint     = $00000080;
  ROD_UID_9          : Longint     = $00000100;
  ROD_UID_10         : Longint     = $00000200;
  ROD_UID_11         : Longint     = $00000400;
  ROD_UID_12         : Longint     = $00000800;
  ROD_UID_13         : Longint     = $00001000;
  ROD_UID_14         : Longint     = $00002000;
  ROD_UID_15         : Longint     = $00004000;
  ROD_UID_16         : Longint     = $00008000;
  ROD_UID_17         : Longint     = $00010000;
  ROD_UID_18         : Longint     = $00020000;
  ROD_UID_19         : Longint     = $00040000;
  ROD_UID_20         : Longint     = $00080000;
  ROD_UID_21         : Longint     = $00100000;
  ROD_UID_22         : Longint     = $00200000;
  ROD_UID_23         : Longint     = $00400000;
  ROD_UID_24         : Longint     = $00800000;
  ROD_UID_25         : Longint     = $01000000;
  ROD_UID_26         : Longint     = $02000000;
  ROD_UID_27         : Longint     = $04000000;
  ROD_UID_28         : Longint     = $08000000;
  ROD_UID_29         : Longint     = $10000000;
  ROD_UID_30         : Longint     = $20000000;
  ROD_UID_31         : Longint     = $40000000;
  ROD_UID_32         : Longword    = $80000000;


/////////////////////////////////////////////////////////////////////
// Broadcast Methods: "Attribute" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_ATTR_BLINK         : Longint     = $80;

  ROD_ATTR_BG_BLACK      : Longint     = $00;
  ROD_ATTR_BG_BLUE       : Longint     = $10;
  ROD_ATTR_BG_GREEN      : Longint     = $20;
  ROD_ATTR_BG_CYAN       : Longint     = $30;
  ROD_ATTR_BG_RED        : Longint     = $40;
  ROD_ATTR_BG_MAGENTA    : Longint     = $50;
  ROD_ATTR_BG_BROWN      : Longint     = $60;
  ROD_ATTR_BG_GRAY       : Longint     = $70;

  ROD_ATTR_INTENSITY     : Longint     = $08;

  ROD_ATTR_FG_BLACK      : Longint     = $00;
  ROD_ATTR_FG_BLUE       : Longint     = $01;
  ROD_ATTR_FG_GREEN      : Longint     = $02;
  ROD_ATTR_FG_CYAN       : Longint     = $03;
  ROD_ATTR_FG_RED        : Longint     = $04;
  ROD_ATTR_FG_MAGENTA    : Longint     = $05;
  ROD_ATTR_FG_BROWN      : Longint     = $06;
  ROD_ATTR_FG_GRAY       : Longint     = $07;


/////////////////////////////////////////////////////////////////////
// "DrawBox" Method: "BorderType" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_BDR_SINGLE         : Longint     = 1;
  ROD_BDR_DOUBLE         : Longint     = 2;
  ROD_BDR_SOLID          : Longint     = 3;


/////////////////////////////////////////////////////////////////////
// "ControlClock" Method: "Function" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_CLK_START          : Longint     = 1;
  ROD_CLK_PAUSE          : Longint     = 2;
  ROD_CLK_RESUME         : Longint     = 3;
  ROD_CLK_MOVE           : Longint     = 4;
  ROD_CLK_STOP           : Longint     = 5;


/////////////////////////////////////////////////////////////////////
// "ControlCursor" Method: "Function" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_CRS_LINE           : Longint     = 1;
  ROD_CRS_LINE_BLINK     : Longint     = 2;
  ROD_CRS_BLOCK          : Longint     = 3;
  ROD_CRS_BLOCK_BLINK    : Longint     = 4;
  ROD_CRS_OFF            : Longint     = 5;


/////////////////////////////////////////////////////////////////////
// "SelectCharacterSet" Method: "CharacterSet" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_CS_UNICODE         : Longint     = 997; // (added in 1.5)
  ROD_CS_ASCII           : Longint     = 998;
  ROD_CS_WINDOWS         : Longint     = 999;
  ROD_CS_ANSI            : Longint     = 999; // (added in 1.5)


/////////////////////////////////////////////////////////////////////
// "TransactionDisplay" Method: "Function" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_TD_TRANSACTION     : Longint     = 11;
  ROD_TD_NORMAL          : Longint     = 12;


/////////////////////////////////////////////////////////////////////
// "UpdateVideoRegionAttribute" Method: "Function" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_UA_SET             : Longint     = 1;
  ROD_UA_INTENSITY_ON    : Longint     = 2;
  ROD_UA_INTENSITY_OFF   : Longint     = 3;
  ROD_UA_REVERSE_ON      : Longint     = 4;
  ROD_UA_REVERSE_OFF     : Longint     = 5;
  ROD_UA_BLINK_ON        : Longint     = 6;
  ROD_UA_BLINK_OFF       : Longint     = 7;


/////////////////////////////////////////////////////////////////////
// "EventTypes" Property and "DataEvent" Event: "Status" Parameter Constants
/////////////////////////////////////////////////////////////////////

  ROD_DE_TOUCH_UP        : Longint     = $01;
  ROD_DE_TOUCH_DOWN      : Longint     = $02;
  ROD_DE_TOUCH_MOVE      : Longint     = $04;


/////////////////////////////////////////////////////////////////////
// "ResultCodeExtended" Property Constants for Remote Order Display
/////////////////////////////////////////////////////////////////////

  OPOS_EROD_BADCLK       : Longint     = 201; // ControlClock
  OPOS_EROD_NOCLOCKS     : Longint     = 202; // ControlClock
  OPOS_EROD_NOREGION     : Longint     = 203; // RestoreVideo Region
  OPOS_EROD_NOBUFFERS    : Longint     = 204; // SaveVideoRegion
  OPOS_EROD_NOROOM       : Longint     = 205; // SaveVideoRegion


implementation

function ROD_UID(Value: Integer): Integer;
begin
  Result := Value shl 1;
end;

end.
